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2 TITLE SINT SOFTWARE 
4 XDEF ESSINT NEEDED FOR MODULE MAP 


5 SS$SINT EQU $ START OF MODULE SINT 
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e SINT SOFTWARE ~SAF 1981/12/21 133492539 HRF ASSEMBLER DTSS L=6 HOST RESIDENT FACILITY PAGE 0002 e 
000004 1000 /EJECT 
000005 1010 * 
e 000006 1020 *10 DRIVERS e 
000007 1030 * 
e 000008 0000 1040 S$IOCHO EQU 2°0000' IO CHANNELS @ 
oo00a09 0040 1050 $10CH1 EQU 2*0040! : 
000010 0080 1060 S$IO0CH2 EQU 2'0080' 
e 000011 arexene 1070 $IOCH3 EQU z*00C0! & 
000012 1080 * 
000013 0001 1090 SOTCTL EQU Z*0001' CONTROL INFORMATION OUTPUT 
@ 000014 0002 1100 S$ICTLI Eau z*000e8 INPUT INT CONTROL INFO @ 
000015 0003 1110 $I1CTLO EQU Z*0003! OUTPUT INT CONTROL INFO 
000016. 0005 1120 $OCCTL EQU 2*0005! OUTPUT CHANNEL CONTROL - 
e 000017 0006 1130 $TSKRI EQU Z'0006' INPUT TASK REGISTER & 
000018 0007 1140 $TSKRO EQU z*0007' OUTPUT TASK REGISTER 
000019 0008 1150 $INMBA EQU 2*0008' INPUT MEMORY BYTE ADDRESS 
e 000020 OUOUA 1160 SINMMA EQU 2Z*O000A' INPUT MEMORY MODULE ADDRESS e 
000021 oooc 1170 S$INRNG EQU Z*O000C? INPUT RANGE RESIDUE ‘ 
o00022 OO00F 1180 S$OBCTL EQU Z*000F? OUTPUT BUFFER CONTROL 
6 000023 0010 1190 $CFGAI EQU Z*0010' INPUT CNFG REGISTER A e 
000024 0011 1200 SCFGAO EQU z*00118 OUTPUT CNFG REGISTER A ” 
000025 0012 1210 $CFGBI EQ@U z'0012' INPUT CNFG REGISTER 8B 
e 000026 0013 1220 $CFGBO ERU 2*'0013" OUTPUT CNFG REGISTER B @ 
000027 1230 * ” 
000028 0018 1240 $S$ISTS1 EQU 2°0018? INPUT STATUS REG 1 . 
e 000029 OO1A 1250 S$ISTS2 EQU Z*O01A' INPUT STATUS REG 2 e 
000030 0026 1260 $IDINP EQU 2*0026' INPUT DEVICE ID , 
000031 1270 * 
e | 000032 0009 1280 $10LD EQU 2Z'0009* SIMPLE LOAD (NO DIRECTION) : e 
000033 0009 1290 SIOLDI EQU $IOLD+$I10CHO LOAD AND START DCW EXECUTION (TO US) ial 
000034 0049 1300 $IOLDO EQU SIOLD+S$I10CH1 LOAD AND START DCW EXECUTION CFROM US) 
e 000035 1310 * e 
000036 1320 *MISCELLANEOUS CHANNELS ) 
000037 1330 * 
e 000038 G000 1340 CPUOCH EQU 0 CHANNEL OF CPUAD e 
000039 0400. 1350 BILDCH EQU 2°0400° BOOTLOAD CHANNEL 
000046 FF8O 1355 LASTCH EQU Z'FF8O* LAST POSSIBLE L6 CHANNEL TO CHECK FOR DISKETTE 
e 000041 1360 * e 
000042 1370 * 
000043 1380 *CLOCK BLOCK DEFINITIONS 
e 000044 1390 * e 
000045 0001 1400 FPTR EQuU 1 FIRST BLOCK POINTER 
000046 0002 1410 LPTR EQU 2 LAST BLOCK POINTER (SAF) 
e 000047 1420 * ® 
000048 0003 1430 USRDTA EQU 3 START OF DATA IN QUEUE BLOCKS | 
000049 7 1440 * 
, e 000050 0003 1450 SWORD EQU 3 SwREGISTER OR STATUS | @ 
| 000051 0004 1460 UWORD EQU 4 USERS XB7 
000052 0006 1470 RWORD EQU 6 RUN ADDRESS 
@ © 
® e 
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000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
ooo070 
000071 
000072 
000073 
000074 
00c075 
000076 
000077 
000078 
000079 
o00080 


000081 — 


000082 
000083 
O00084 
O00085 
000086 
000087 
OUOBUSS 
OU008Y 
000096 
000091 
DO0U92 
O0U0093 
000094 
000095 
000096 
000097 
Q00098 
000099 
000100 
000101 
0007102 
000103 
000104 
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O00D 
OOOA 
0018 
ODOA 


0030 
0031 
G03e 
0033 
0034 
0035 
0036 
0037 
0038 
0039 


0041 
004e 
0043 
0044 
UUSS 
0046 
0047 
0048 
0049 
VU4GA 
00468 
OU4C 
004D 
OUGE 
OO4F 
0056 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
OOSA 
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2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
elize 
2023 
2024 
2025 
2026 
ecUe? 
2028 
2029 
2030 
2U31 
ro 8 eee 
2033 
2034 
2u45 
2036 
e037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 


JEJSECT 


* 


*ASCII VALUES 


* 


*CONTROL CHARACTERS 


* 


BASCCR EQU 13 
SASCLF EQU 10 
SASCEC EQU 27 
SASCCR*Z*O100*+SASCLF 


SBCRLF 


* 


kNUMBERS (0*9) 


* 

SASCO 
BASCI 
SASC? 
SASC3 
SASTS 
SASCS5 
BASCE 
$ASC? 
BASCS 
SASCI 
x 

*LETTE 
ke 

SASCA 
$ASCB 
SASCC 
SASCD 
SBASCE 
BASCFE 
SASCG 
SASCH 
FASCI 
SASCJ 
BASCK 
SASCL 
SASCHM 
SASCN 
SASCO 
BASCP 
SASCR 
SASCTR 
SASCS 
SASCT 
BASCU 
SBASCV 
SASCW 
SASC X 
BASCY 
SASCZ 
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EQU 


EQU 
EQU 
EQU 
EQU 
Eau 
EQU 
EQU 
EQU 
EQY 
EQU 


RS 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQuU 
EQU 
EQU 
EQU 
EQU 
EQU 
E QU 
EQU 
EQU 
E QU 
EQU 
EQU 
EQU 
EQU 
EGU 
EQU 
EQU 


C(A~Z) 
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000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000736 
000137 
000138 
000139 
000146 
000141 
000142 
000143 
000144 


SOFTWARE 


0020 
0024 
O02¢7 
0028 
0029 
OO2A 
002B 
OO2C 
002d 
OO2E 
OOeF 
OO3A 
0038 
003C 
0030 
OO3E 
OO3F 
0040 
Q005C 
OOSE 
DOSF 
OO7F 
7F7F 


Q005 
0018 
DOTA 


QOV09 
O00B 
OOUC 
0019 
0010 
OOTE 
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2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
cUG5 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 


fESECT 
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*SPECIAL CHARACTERS 


* 

SASCSP 
SASCOL 
BASCAP 
SASCLP 
SASCRP 
SASCAS 
SASCPL 
BASCCM 
SASCDS 
SASCDT 
BASCEFS 
SASCCN 
SASCSC 
SASCLT 
BASCTEQ 
SASCGT 
SASCQM 
SASCAT 
SASCBS 
DASCUA 
SASCBA 
SASCTRO 


EQU 3e 
EQU 36 
EQU 39 
EQU 40 
EQU 41 
EQU 42 
EQU 43 
EQU 44 
EQU 45 
EQU 46 
EQU 47 
EQU 58 
EQU 59 
EQU 60 
EQU 61 
EQU 62 
EQU 63 
EQU 64 
EQU 92 
EQU 94 
EQU 95 
EQU 127 


BRORO EQU SASCRO*Z*'O100"+$ASCRO 


* 


* CONTROL CHARACTERS 


* 


SACCE EQU SASCETO4 
SACCX EQU SASCX~64 
SACCZ EQU SASCZ~64 


x 
BASCHT 
SASCVT 
BASCFEF 
SASCEM 
BASCGS 
SASCRS 


EQU 9 HORIZONTAL TAB 
EQU 11 VERTICAL TAB 

EQU 12 FORM FEED 

EQU 25 END MEDIA 

EQU 29 GROUP SEPERATOR 
EQU 30 RECORD SEPERATOR 
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© SINT SOFTWARE -SAF 1981/12/21 13:49:39 HRF ASSEMBLER DTSS L~6 HOST RESIDENT FACILITY PAGE 0005 @ 
000145 2092 /EJECT 
e 000146 2093 * e 
000147 2094 *SPEED ASSIGNMENT TABLES 
000148 2095 * 
® 000149 0000 2096 $810 EQu O LEVEL6 CODING FOR SPEED TABLES & 
000150 0002 2097 $515 EQU 2 
000151 — 0003 2098 $830 EU 3 
e 000152 0004 2099 $$60 EQU 4 e 
000153 0005 2100 $$120 ERQU 5S 
000154 0006 2101 $8180 EQU 6 - 
@ 000155 OOOA 2102 $8240 EQU 10 r 
| 000156 0008 2103 $8480 EQu 11 
: 000157 OO0C 2104 $8960 EQU 12 
| e 000158 gogo 2105 $81920 EQU 13 é 
000159 2106 * | 
000160 0010 2107 S$SMAX EQU 16 UP TO SIXTEEN DIFFERENT SPEED SETTINGS | 
000161 2108 * 
sd 000162 2109 * ® 
| 000163 2110 *SET MODE CONSTANTS | 
| 6 00017164 2111 « @ 
000165 0040 2112 Ssm$000 EQU 2'0040' BASE FOR MODE SETTING COMMANDS e 
000166 2113 * 
® 000167 0040 2114 SM$ECH EQU 2*0040' SET ECHOPLEX e 
000168 0041 2115 SMB$ROT EQU 2°0041" SET RAW OUTPUT 
| 000169 0042 27116 SMSMFR EQU 2*0042! MAINFRAME READY 
e 000170 0043 2117 SMSEOO EQU 2*0043' MAINFRAME LOGICAL END OF OUTPUT € 
000171 0044 2118 SMS$FRD EQU Z*0044' SET FRIDEN MODE 
000172 0045 2119 SM$RDO EQU Z'0045! READ OUTSTANDING 
e 000173 0046 2720 SMSIDY EQU Z'0046! IDLE DELAY (TIME/FILL) @ 
| 000174 2121 * 
7 000175 0060 2122 SMBDLY EQ@U 2'0060' SET DELAY PARAMETERS 
: e 000176 0060 2123 SMS$DLU EQU SMSDLY+0 @ 
000177 0061 2124 SMSDL1 EQU SMSDLY+7 
000178 0062 2125 SMSDL2 EQU SMSDLY+2 
: ® 000179 0063 2126 SM$DL3 EQU SMBDLY+3 e 
Z 000180 0064 2127 SMSDL4 EQU SMBSDLY+4 
; 000181 0065 2128 SMBSDL5 EQU SMBDLY+5 
e 000182 0066 2129 SMSDL6 EQU SMSDLY+6 e 
000183 0067 2130 SM$DL7 EQU SMSDLY+7 oe 
000184 2131 * | 
e 000185 0068 2132 SMBOMD EQU 7*0068" SET OUTPUT MODE e 
000186 0068 2133 SMSOMO EQU SMBOMD+0 
000187 0069 2134 SMSOM1 EQU SMSOMD+1 
e 000188 OO6A 2135 SMSOM2 EQU SMSOMD+2 @ 
000189 0068 2136 SMSOM3 EQU SMSOMDt3 
] @ 
©@ @ 
® @ 
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Boise 3000 /EJECT 
0019 3001 « 
e eae 3002 *HARDWARE SPECIFIC INFORMATION sd 
| 3003 « 
) 000194 3004 *START OF INTERRUPT VECTOR CIVOO0) AND FAULT VECTOR ¢FfYO0) @ 
000195 3005 « +#1sIVO1 1=FVO1 
poor 3006 #kkaeeeeeee IVECT EQU Z*0080! 
3007 « 
e 000198 3008 *BIT MASK ASSIGNMENTS e 
000199 3009 « | 
e 000200 0001 3010 $MKB7 EQuU z2*°0001" 
000201 0002 3011 $MKB6 EQU z*0002" ad 
000202 0004 3012 $MKBS EQU Z*0004" 
® 000203 0008 3013 $MKB4 EQU z'0008" 
000204 0010 3014 $MKB3 EQu z'0010° sd 
000205 0020 3015 $MKB2 EQU 2*0020° | 
e 000206 0040 3016 $MKB1 E@U 2°0040" 
000207 0080 3017 SMKI EQU z*0080° e 
000208 0100 3018 $MKR7 EQu z2*0100? 
® 000209 0200 3019 $MKR6 EQU Z*0200° 
000210 0400 3020 $MKRS EQU 2*0400° e 
000211 0300 3021 $MKR4 EQU Z*0800° 
e 000212 1000 3022 $MKR3 EQU 2*1000° 
| 000213 2000 3023 $MKR2 EQU z*2000° e 
000214 4000 3024 $MKR1 EQU z*4000" 
e@ 000215 8000 3025 $MKM1 EQU z*8000" 
! 000216 3026 « e 
| 000217 7000 3027 $MKR13 EQU SMKRI+SMKR2Z4SMKR 3 
@ 000218 OQFUO 3028 SMKR4G7 EQU SMKRG+EMKROFBEMKROFSEMKR? 
000219 0070 3029 $MKB13 EQU SMKB1+SMKB2+5MKB 2 ¢ 
000220 ODOOF 4030 SMKB47 EQU SMKB44+3EMK55+3MK386+5MKB7 
e Rage 9090 ee $MKSTD EQU SMKMI43MKI43MKR345@KB3 STANDARD REGISTERS TO SAVE € 
: f 4 *% ; i 
000223 3033 * | 
® O00e24 3034 *{[Vv SAVED REGISTERS OFFSET 
000225 3035 * e 
000226 FFFC 3036 S$IVLEV EQU Z°FFFC* LEVEL ASSOCIATED (SOFT) 
e 00022? FFF EF 3037 S$IVTSA EQU Z2*FEFFS TSAP 
000228 0000 3038 $IVDEV EQU O DEVICE e 
000229 0001 $039 $SIVMSK EQU 1 MASK 
e 000230 0003 3040 $IVP EQU 3 
000231 0004 3041 $IVS EQU 4 e 
000232 0005 $042 $SIVREG EQU 5 START OF REGISTERS 
e 000233 0008 3043 $1VB1 EQU 11 
000234 000C 3044 $IVI EQU 12 e 
| 000235 0013 3045 S$IvR1 EQU 19 
e 000236 0014 3046 $1VM1 EQU 20 , 
000237 0018 3047 $IVT EQU 27 ®e 
6 é@ 
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000238 3048 /EJECT 

000239 3049 « ) 

000240 3050 *TRAP SAVE AREA OFFSETS 

000241 3051 * 

000242 0000 3052 S$TSAL EQU O NEXT LINK e 

000243 0001 3053 $TSAI EQU 1 INDICATOR REGISTER 

000244 0002 3054 $TSAR3 EQU 2 XR3 7 

000245 0003 3055 STSACM EQU 3 COMMAND ¢ 

000246 0004 3056 S$TSAZ EQU 4 Z~WORD 

000247 QOO5 3057 $TSAA EQU 5 ADDRESS 

000248 0006 3058 STSAP EQU 6 P*#REGISTER @ 

000249 0001 3059 S$TSAPX EQU STSAP=STSAA P*wREG AS ADDRESSED BY TRAP ROUTINE 

000250 0007 3060 $TSA83 EQU 7 XB3 

000251 0003 3061 STSATM EQU &=STSAA TEMP WORD & 

000252 OD08 3062 $TSAWbD EQU 8 FOR NON#=TRAP ROUTINES» THE TEMP WORD a 

000253 O009 3063 S$TSALN EQU 9 LENGTH OF TRAP SAVE AREA 

QOU0254 3064 * @ 

000255 3065 * i 

000256 6000 3066 S$SRGP3 EQU 2*6000' SREGISTER PRIORITY 3 

000257 3067 * é 

000258 3068 * 

000259 3069 *LEVEL INSTRUCION WORDS 

00026U 3070 * e 

000261 803F 3071 SLVEXI EQU Z'803F* SUSPENDs SCANs AND DISPATCH 

000262 4000 3072 $LVSCH EQU 72°4000' SCHEDULE INTERRUPT, DEFER 

000263 8000 3073 S$LVEXE EGU 2*8000° SUSPENDs SCANs SCHEDULEs AND DISPATCH e 

000264 0060 3074 $LVENT EQU z2*0000' SCHEDULE» SCAN» DISPATCH CRETURN LATER) 

000265 0080 3075 $LVDIS EQU 2*0080° INHIBIT 

000266 8080 3076 SLVDSX EQU 2*8080'" SUSPEND, INHIBIT @ 

000267 0000 307? SLVDIE EQU $LVENT+)9 CRASH LEVEL INSTRUCTIONS DATA 

000268 3078 * 

000269 3079 *MODE REGISTER CONSTANTS @ 

000270 3080 * 

00027 1 SUs8U 3081 S$M1NST EQu 2*8080'° SET JUMP TRACE 

000272 8000 3082 SMIJRS EQU 2°8000' RESET JUMP TRACE e 

000273 008 3083 S$M15TS ERU 2'0080'° TEST JUMP TRACE | 
e 
e 
6 
e 
6 
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000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
O00282 
000283 
000284 
000285 
000286 
O00287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
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0000 
0001 
0002 
0003 
0004 
0005 
0008 
QOODA 
0010 
0030 
0031 
0036 
Q037 
0038 
OO3C 
OO3E 


0078 
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3084 
3085 
3086 
308? 
3088 
3089 
$090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3703 
3104 
3105 


/EJECT 


* 
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* ASSIGNED LEVELS 


* 

ERRLEV 
WOTLEV 
TSOVLYV 
HANGLV 
RTCLEV 
WATLEV 
MCPLEV 
SX25LV 
CPLRLYV 
NETLEV 
SBSCLYV 
CNSLEV 
SYCLEV 
MSGLEV 
DBGLEV 
DEVLEV 
* 


ONESEC 


EQU 
EQU 
EQu 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQuU 
EQU 
EQU 
EQU 


EQU 


0 POWER FAIL AND CRASH LEVEL 

1 WATCH DOG TIMER LEVEL 

2 TRAP SAVE AREA OVERFLOW AREA 

3 STARTUP AND HANG LEVEL 

4 REAL TIME CLOCK LEVEL 

5 WATCH COPY LEVEL 

8 ASYNC MLCP LINE CARD 

10 SYNC MLCP LINE CARD (USING X25) 

16 COUPLER LEVELS (16217718,19) 

48 X25 NETWORK PACKET LEVEL 

49 SYNC MLCP LINE CARD CUSING BSC) 

54 CONSOLE HARDWARE LEVEL (BASE FOR SOFTWARE) 
CNSLEV+1 SYSTEMS CONTROL LEVEL 

SYCLEV+1 SYSTEMS MESSAGES LEVEL 
60 DEBUGGER PRIMARY+s SECONDARY=+1 

62 LOWEST LEVEL FOR INVERTED SYNCHRONIZATION 

120 CLOCK IS 120 TIMES PER SECOND (.0083333) 
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SINT 


000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
QO00309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000316 
000319 
000320 
000321 
000322 
000423 
000324 
000325 
000326 
QV03¢7 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 


SOFTWARE 


0002 
0003 
0004 
0005 


8000 
4000 
2000 


0000 
0001 
0002 
0003 


8000 
4000 
2000 
1000 
0800 
0400 
O2U0 
0100 
0080 
0040 


2408 
2010 
2118 
2158 
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4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 


/EJSECT 
* 

* INPUT 
x 

«FIRST 
CURBUF 
CURLEN 
NSBERR 


MFLAGS 
* 


* 


13:49:39 HRF ASSEMBLER 


MESSAGE BUFFER DEFINITION 


BUFFER IN LINK WORD(O) 
EQU 2 

EQU CURBUF +1 
EQU CURLEN+1 
EQU NSBERR+14 


*INTERNAL TO MESSAGE FLAGS (MFLAGS) 


* 


LTLONG 
IFINAL 
TRPCLK 
* 
* 


EQU 2*8000' 
EQU 2'4000° 
EQU z2*2000* 


*MESSAGE STYLE BLOCK DEFINITION 


x 
FRSTCK 
SCNDCK 
INPMAX 
STYFGS 
k 

* 


EQU 0 

EQU FRSTCK+1 
EQU SCNDCK+1 
EQU INPMAX+1 


FIRST CLOCK TO SET 


*DEFINITIGONS OF INPUT STYPE BITS 


* 

UNEDIT 
IGNLTL 
IGNNSB 
ESCQTL 
ESCDTA 
BKRDTA 
IGNENQ 
IGNLFD 
IGNDEL 
TONULL 


EQ@U Z°8000" 
Eau Z2°4000° 
EQuU: z2* 2000" 
ERQU Z7*°1000° 
EQU 2*0800' 
EQU 2*0400' 
—EQU Z2'0200' 
EQU 2'0100' 
EQU 2'0080" 
EQU Z2*0040° 


DTSS L=6 HOST RESIDENT FACILITY PAGE 0009 


CURRENT BUFFER ADDRESS 


CURRENT LENGTH 
ERROR COUNTERS 
INTERNAL TO MESSAGE FLAGS 


LINE IS CURRENTLY TOO LONG 
FINAL DELIVERY 
FINAL DELIVERY TRAPS CLOCKING READ 


SECOND (SUBSEQUENT) CLOCK TO SET 
MAX LINE LENGTH 
INPUT STYLE BITS 


DATA SHOULD NOT BE EDITED 

LINE TOO LONGS ARE IGNORED (ELSE MSG ABORT) 
NO-STOP-BIT ERRORS ARE COUNTED AND FLAGGED 
ESCAPES DONE WITH NO MESSAGE 

ESCAPE IS DATA CELSE IT IS LINE CANCEL) 


BACKARROW IS DATA CELSE IT IS CHARACTER DELETE) 


ENQUIRY IS IGNORED (CELSE MSG GENERATED) 
LINE FEEDS IGNORED CELSE TREATED AS DATA) 
RUBOUTS ARE IGNORED (ELSE TREATED AS DATA) 
NULLS ARE IGNORED CELSE TREATED AS BREAK) 


kkk aR eK kkk kee aR kkk ek ke ea Kk KK KK KKK KKK KKK KKK KKK KEK 


* 
* 
* 


COUPID 
DISKIDO 
ASYID 


* 


STANDARD DEVICE TYPE ID*S * 
: " 
CECT ELCLCCCCCCCCCCLSCS CCC CCSCOSCLCLTCCTCCCCLCLCACCCA SCC 
EQU Z°*2408* COUPLER DEVICE TYPE 
EQU Z2*'2010* DIU 9101 DISKETTE 
E QU Z*21718* ASYNCHRONOUS CHANN“EL ID FOR MLCP 
EQU Z*2158* BISYNC CHANN"EL ID FOR MLCP 


BISTID 


, is eeeeee8e 8eeeeee0ee0e?@¢@ 86 @@ @ e 


ra 
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SINT 


000343 
000344 
000345 
000346 
000547 
000346 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000457 
000358 
000359 
000360 
000361 

000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
0003771 
000372 
0003.73 
000374 
000375 
0003-76 
000377 
000376 
000379 
000380 
000381 

000382 
000383 
DOU3&4 
000385 
000386 


000387 — 


000388 
000389 
000390 
000391 


SOFTWARE 


0002 
0005 
0006 


0007 
0008 
0009 


OOOA 
0008 
Q00C 
O000D 
QOUE 
QOOF 
0010 
0011 


00172 
0013 
0014 
00175 
0016 
0017 
0019 
0018 
QO24 
Q026 
QO2B 
DO2C 
O02E 


0030 


DO3C 


8000 
4000 
2000 


0800 
0400 
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5000 
5010 
5020 
5030 
5640 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
9130 
57140 
57150 
3760 
5170 
571380 
5190 
9200 
9210 
ae 20 
9230 
5240 
5250 
5260 
5270 
5280 
ery 
5300 
2570 
5320 
3050 
5340 
5350 
5360 
5370 
5380 
53 9U 
5400 
5410 
5420 
5430 
5440 
5450 
5460 


5470 


5480 
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JEJECT 


* 


*COUPLER CONTROL BLOCK DEFINITIONS 
* 


DTSS L-6 HOST RESIDENT FACILITY PAGE 0010 


*LEAVE ROOM FOR QUEUEING PRIORITY AND LINK 


USERG EQU 2 

CPFLGS EQU USERQ+3 
COUPST EQU CPFLGS+t1 
« 

PSBCLK EQU COUPST+1 
PSBCNT EQU PSBCLK+1 
DEADCT EQU PSBCNT+1 
* 

OMSGFB EQU DEADCT+1 
OMSGFP EQU OMSGFBF1 
OMSGLB EQU OMSGFP#+1 
OMSGLP EQU OMSGLB+1 
IMSGBP EQU OMSGLP+1 
IMSGCM EQU IMSGBP+1 
IMSGLN EQU IMSGCM+1 
IMSGBK EQU IMSGLN+1 
* 

SPICMD EQU IMSGBK+1 
TALO6 EQU SPICMD+1 
TAL6 EQU TALO6#1 
IOWDS EQU TAL6+1 
L6BUFR EQU IOWDS+1 
H6OODTA EQU L6BUFR+I 
MBXLOC EQU HO6DTA+2 
MEXPKG EQU MAXLOC+2 
STSLOC EQU MBXPKG+9 
STATUS EQU STSLOC+2 
CIVDEV EQU STATUS#S 
LSTSTS EGU CIVDEV+1 
SPISTS EQU LSTSTS+2 
x 

DCWLST EQU SPISTS+2 
* 

CPLRBL EQU DCWLST+12 

* 

* 

*DEFINITIONS OF COUPLER FLAGS 
* 

logusy Eau z*38000° 

BUFBSY EQU z2*4000' 

SLRDCK EQU z*2000" 

x 

RLDSET EQU Z*0800" 

L6RSET EQU z'0400' 


QUEUE OF USERS CONNECTED TO THIS COUPLER 


FLAGS CONTROLLING FLOW 
COUPLER 1/0 STATE 


PLEASE STAND BY CLOCK 
PLEASE STAND BY COUNTER 
DEAD CONNECTION COUNT 


FIRST BUFFER OF OUTPUT MESSAGES 
ASSOCIATED POINTER 

LAST BUFFER OF OUTPUT MESSAGES 
ASSOCIATED POINTER 

INPUT BUFFER PARSE POINTER 
INPUT COMMAND/LENGTH 

INPUT PORTCLINE)D 

STARTING BLOCK OF MESSAGE 


SPECIAL INTERRUPT COMMAND 
HO6 REGUESTED [0 WORDS 


LEVELG ALLOWED 10 WORDS 
ACTUAL NUMBER OF WORDS I0*ED 


10 ADDRESS IN LEVEL6 

10 ADDRESS IN H1IS6600 

LOCATION OF MAILBOX IN HIS6600 
CONTENTS OF HIS6600 MAILBOX 

LOCATION OF STATUS IN HIS6600 
CONTENTS OF STATUS WRITTEN TO HIS6600 
LAST DEV WORD FROM INTERRUPT 

LAST HARDWARE STATUS READ 

SPURIOUS INTERRUPT STATUS 


DCW LIST FOR 10 OPERATIONS 


COUPLER BLOCK LENGTH 


BUSY DOING TERMINATE REQUIRED 1/70 
BUFFER ACTIVE 
SLOW READS CLOCK RUNNING 


RELOAD AT EVERY REQUEST 
LEVELG HAS RESET ALL USERS 


@eeeee&eeee#e##2eee28# 88888088800 @ 
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@ SINT SOFTWARE “SAF 1981/12/21 13:49:39 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE 0011 € 
000392 5490 /EJECT 

© 000393 5500 * @ 
000394 5510 *CONTROL INFORMATION FOR COUPLER 
000395 5520 * | 

e 000396 0020 5530 Lé6RDC EQU 2Z'0020" AGREED CONSTANT FOR READ e 
000397 0030 5540 Loé6wTC EQU z2'0030' AGREED CONSTANT FOR WRITE 
0003.98 5550 * 

€ 000399 0004 5560 MBXWDS EQuU 4 MBX IS 4 WORDS ON H66 SIDE @ 
000400 0002 9570 STSWOS EQU 2 STATUS IS 2 WORDS ON H66 SIDE 
000401 0200 5580 CPBFLN EQU 512 L6 LENGTH OF I/O BUFFER 

e 000402 5590 * & 
000403 5600 * 
000404 5610 *HIS6600 INTERRUPT CELLS | 

@ 000405 : 5620 * ¢ 

000406 0003 5630 H66TRM EQU 3 INITIATE /TERMINATE 

000407 0007 5640 H66SPC EQU 7 SPECIAL 
@ 000408 5650 * @ 
| 000409 00c3 5660 INTHO6 EQU Z'0003"+$10CH3 INTERRUPT HIS6600 
| 000416 5670 * 
; e 000411 S680 * € 
| 000412 5690 *MISCELLANEOUS L6 10 INFORMATION 

000413 5700 * 

e 000414 0011 $720 COUPSL EQU CPLRLV#1 SPECIAL INTERRUPT (FROM HIS6600) e 
7 000415 0012 5730 COUPTL EQU COUPSL#1 TERMINATE INTERRUPT FOR L6 OPERATION . 
| 000416 0013 5740 COUPWL EQU COUPTL+1 SLAVE BUFFER PROCESSING LEVEL 
: e 000417 S030). @ 
000418 5760 *DCW COMMANDS 
| 000419 5770 * 

e 00042U 0038 5780 DwWOSCI EQU 2'0038' DISCONNECT AND INTERRUPT e 
000421 0030 5790 D0WST66 EQU 2*003D' XFER L6 TO H66 m 
d OUU422 OUSE 5800 DWS56TS ERU Z'003E" XFER H66 TO L6 
: @ 000423 oN03¢ 5810 DWCNFG EQU 2'003C' | STORE CONFIGURATION STATUS e 
| 000424 2O00 # 

000425 0018 5830 DCWLEN EQU 2*6*2 LENGTH OF OUR DCW LISTS 

: @ 000426 5840 * € 
“ 0004627 5850 *DATA TRANSFER MODES | 
000428 5860 * 

4 © 000429 0001 5870 ASCMOD Eau 72*0001' ASCII MODE @ 
: 000430 0002 5880 BCOMGD Eau 2*0002' BCD MODE : 
; 000431 0003 5890 BINMOD EQ@U Z'0003' BINARY MODE 

: e 000432 0011 5900 TLAMOD ERQU 7Z'0011" TRANSLITERATION MODE A e 
000433 0021 5910 TLAMOD Eau Z'0021' TRANSLITERATION MODE B ) 
000434 0041 5920 MSBMOD EQuU 2*0041" ASCII MODE WITH MSB TEST 

@ 000435 - 0051 5930 TLCMOD EQuU 2'°0051' TRANSLITERATION MODE A WITH MSB TEST @ 
: 000436 0061 5940 TLOMOD Eu z2*'0061" TRANSLITERATION MODE 8 WITH MSB TEST 

 ©@ e 
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SINT 


000437 
000438 
000439 
000440 
000441 
000442 
000443 
000444 
000445 


¢ 


SOFTWARE 


0000 
0001 
0002 
0003 
0004 
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5950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 


JEJECT 


* 


13:49:39 


HRF ASSEMBLER 


*PENDING STATES FOR COUPLER SOFTWARE 


* 

CIDLE EQU 
MBXRDB EQU 
IOXFR EQU 
STSWT EQU 
CFGRD EQU 


SW 


IDLE 

M3X READING STATE 
IO TRANSFER STATE 
STATUS WRITE STATE 
CONFIGURATION READ 


DTSS t*6 HOST RESIDENT FACILITY 


PAGE OQ1e 
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: e 


000446 
000447 
000448 
000449 
000450 
000451 
000452 
000453 
000454 
000455 
000456 
000457 
O000458 
000459 
000460 
000461 
000462 
000463 
000464 
000465 
000466 


000467 
000468 
000469 
000470 
000471 


000472 
000473 
000474 
000475 
000476 


000477 
000478 
000479 
000480 


0004861 
000482 
000483 
000484 
000485 
000486 


000487 
000488 


0106 
07100 


0102 
0103 
0104 
0106 


0107 
0108 


0109, 


0108. 


OTOG 


010d 
010E 
010£ 
0111: 


Q11.2 
0113 
0114 
0116. 


0117 
0118 
O11 A 
0118. 
0117¢. 


0110 


SOFTWARE 


A870 


6041 
E452 
8070 
0056 


6C47 
E452 
8070 
0056 
O7 FB 


6043 
E452 
8070 
0056 


6C€51 
E452 
8070 
0056 


7C07 
E870 
E452 
&057 
0056 


8E70 


0080 
Q020 
8000 


D400 


8000 


1F O00 


0012 


0091 


00C3 


803F 


~SAF 


10000 
10010 
10020 
10030 
10040 
10050 
10060 
10070 
10080 
100 90 
10100 
10105 
10770 
10720 
10130 
10140 
10150 
10160 
10170 
10180 
10790 


10200 
10210 
10220 
10230 
10¢40 


10250 
10260 
102 70 
10280 
10290 


10291 
10292 
10294 
10296 


10297 
10300 
10310 
10320 
10330 
10340 


10350 
10360 
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DTSS L=6 HOST RESIDENT FACILITY PAGE 0013 


** STANDALONE FOR L6 TO INTERRUPT L66 WITH SPECIAL ** 
CPSP PCCP SES OPS CSS S SSCS CC SSeS SCL SS CSCSSSSoCCSCOCCoS LoS SSS S CSS 

* THIS PROGRAM IS READ IN FROM DISKETTE 

FOR THE SOLE PURPOSE OF INTERRUPT THE L66 AT LEVEL ? 


Te INITIALIZE THE COUPLER ON 400 CHEX) 
OC» WRITES TASK REG TO SET L66 INTERRUPT LEVELS 


* 
x 
* IT DOES THE FOLLOWING 
k 
x 
* 


* 
NORMAL 
CHANEL 
QLT 


* 


Se SENDS THE SPECIAL INTERRUPT 


week EK EKER KKK EEE KA KEK KEKE KEKE KEKE KK Kk Kha Kk KK aKa Khe eae 


EQU 
EQU 
E QU 
ORG 
LDR 
LDV 
OR 
10 


Z*0080° 
$R2 
z*8000° 


$+x*0100" 
CHANEL/=BTLDCH 


SRE/-SOTCTL#BSIOCH1 
$RGe=CHANEL 
=QLTs=$R6 


0 
SRO-STSKROF+BI0CH1 
BROe=CHANEL 


=HOOTRM*Z*O8DO'+HGOSPC *2* 0100" ,=SR6 


>=$A 


SR6eSICTLOFSIOCHI 
BROs=CHANEL 


NORMAL» OPERATIONAL TO L66 
CHANNEL FOR COUPLER 
BIT FOR COUPLER QLT 


START AT BOOTSTRAP XFER LOC 
SET FOR 0400 COUPLER 


SET OUTPUT CONTROL 


INITIALIZE COUPLER 


WRITE TASK REG 
SET L66 INTERRUPT LEVELS 
WAIT FER THAT MUTHA TO FINISH INITIALIZING 


SET CPU CHANNEL & TI LEVEL 
USE CHANNEL 0400 HEX 


=CPUOCH*Z*O040*+COUPTL,=$R6 


BR6e,3CFGAO+SI0OCHI 
$ROe=CHANEL 
=COUPSL+NORMAL -=35R6 


BR? ZH6G6S PC 
SR6ee=INTHOO 
BRO se BCHANEL 
=ER7 2= SRS 


=BLVEXI 


SET SPECIAL LEVEL & NORMAL MODE 


GIVE THE L66 A SWIFT KICK! 


HOSE IT 


ee ee ee ee ee re ee ee 
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000489 99990 /EJECT 
S$ 000490 99991 * r 
000491 99992 * FORCE ALL MODULES TO BE OMOD8 IN LENGTH ae 
000492 99993 * 4 
V1 e 000493 0122 99994 ESENDR EQU $¥SSESINT+3 fo 
| 000494 O11F. 0000 99995 RESV CCESENDR*+7)/8) *8-ESENDR,~Z* 0000" 
| 000495 99996 »* 
| 000496 0125 5349 99997 DC *SINT* MNEUMONIC NAME OF MODULE & 
| e 0126 4E54 eee 
| 000497 QO127 O000 99998 ESSINT DC <SSSINT START OF ROUTINE 
| @ 000498 0128 99999 END SINT SOFTWARE @ 
| OOOO ERR COUNT 
: 071336 WORD SYMBOL TABLE 
@ & 
® ® 
® 6 
@ ® 
| 
@ - 
6 e 
@ ’ e 
® ® 
e e 
® @ 
| 
| @ e 
@ ® 
@ e 
e ® 
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a22za22e2z22222222222 aeee 


2Zz2a22z22 


BASC5 
SASCO 
SASC? 
SASCS 
SASCY 
SASCA 
SASCAP 
SASCAS 
SASCAT 
SASCB 
SASCBA 


SASCES. 


SASCC 


SASCCM 


SASCCN 
SBASCCR 
SASCD 

SASCOL 
BASCDS 
SBASCOT 
SASCTE 

SASCEC 


SASCEM 
SASCEQ 


SbASCF 
SASCFEFE 
DbASCFS 
bASCG 
ZASCGS 
SASCGT 
SASCH 
SASCHT 
SASCI 
ASC 
SASCK 
SASCL 
SASCLF 
SASCLP 
BASCLT 
SASCM 


SOFTWARE 


kk kk 3 461 493 
468 472 


Wi 
ch 
™N 


83 135 


60 62 


ST CR TTD TENE + NOTH a GATS TTT TRG AY TT me TT TTT OTN TE TTT TPR MENT TRIE a Pe Lalu en 


“SAF 1981/12/21 13:493:39 HRF ASSEMBLER DTSS L=6 HOST RESIDENT FACILITY PAGE OQQ15 
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SINT 


22222 


ZeZzZea2a22e242 22222 


2222 = = 


22a2cze 


= 


2Q2ze2 222222222222 


ASCP 
SASCPL 
SASCR 
SASCQM 
SASCR 
SASCRO 


SASCRP. 


$ASCRS 
SASCS 
SASCSC 
BASCSP 
SASCT 
BASCU 
BASCUA 
SASCV 
SASCVT 
SASCW 
BASCX 
BASCY 
SASCZ 
SCFGAL 
ECFGAO 
$CFGBI 
$C FGBO 
SCRLF 
SICTLIEI 
$ICTLO 
SIDINPE. 
SINMBA 
SINMMA 
SINRNG 
$IOCHO 
$IOCH 
$LOCH2? 
$IOCHS 
SIOLD 
S$IOLOL. 
SIOLDO 
$I1STS1 
$ISTS2 
$1VB1 
SIVOEV 
$IVvI 
SIVLEV 
SIVM1 
SIVMSK 
BIVP 
$IVR1 


SIVREG 


SIVS 
SIVT 
SIVTSA 


SOFTWARE 
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469 


~SAF 


474 


1981/12/21 


13:49:39 


HRF ASSEMBLER 
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N 
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2222 z2Zz2az2a 
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22 


ae=2ae2z2a2i2zeaed 


“&\ea22z2e2z222222222 
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SLVODIE 
SLVDOIS 
SLVOSX 
SLVENT 


$LVEXE 
SLVEXL 


$LVSCH 
SM1IIRS 
SM1JST 


SM1JSTS 


$MKB 1 
$MKB13 
SMKBe 
$MKB3 
SMKB4 
SMKB47 
$MKB5 
SMKB6 
SMKB?7 
$MKI 
$MKM1 
SMKR 1 
BMKR13 
SMKR2 
SMKR3 
SMKRG 
BMKR47 
BMKRS 
SMKRO 
SMKR7 
SMKSTO 
SOBCTL 
SOCCTL 
SOTCTL 
BR2 
HERO 
BR7 
BRORO 
$S10 
$S$120 
$S15 
$8180 


$$1920 


$$240 
$$ 30 
$S480 
$$ 60 
$8960. 
$SMAX 
SSRGP3 
STSAA 
$TSAB3 


x * 
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